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PREFACE 


This manual is a comprehensive description of the Philco 2000 
Algebraic Programming Language, ALTAC III (hereinafter re¬ 
ferred to as ALTAC). It discusses the rules which must be 
followed when writing programs in ALTAC language. 

No previous programming experience is assumed for an under¬ 
standing of the material presented herein; however, a knowledge 
of the Philco 2000 TAC Language would be helpful. 
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INTRODUCTION 


THE ALTAC 
LANGUAGE 


THE ALTAC 
TRANSLATOR 


The ALTAC Language is a scientific, problem-oriented, automatic 
programming language which may be used to express and solve 
many different kinds of problems. ALTAC is especially suited 
for solving scientific and technical problems, which usually 
contain a large number of algebraic expressions. 


The ALTAC language program defining the operations to be 
performed by the computer is called the source program. In an 
ALTAC compilation, the ALTAC Translator accepts an ALTAC 
language source program and translates it into a TAG language 
program. The TAC Assembler then produces a machine language 
object program from the TAC language program. This object 
program may then be used in a program run, to process data and 
derive meaningful results. 


The following diagram* shows the relation between Language and 
Translator: 



* The diagram is not intended to show all inputs and outputs 
associated with the compilation and running of ALTAC programs. 




The operations performed in the compilation process are contin¬ 
uous and require no operator intervention once the process has 
started. 


ALTAC provides several important features not generally included 

in other algebraic compilers. Some of these features are: 

• Programs in FORTRAN format are acceptable without 
modification. 

• TAC language instructions may be included in the ALTAC 
source program. 

• One-, two-, three-, and four-dimensional arrays can be 
represented. 

• Any floating-point number in the range -10*300 to 1 0*300 can 
be accommodated. 

• Symbolic addresses as well as statement numbers may be 
used. 

• Statements may be written in compound form. 

• Positive, negative, and zero subscripts are permitted. A sub¬ 
script may be any fixed-point expression, including other 
subscripted variables. 

• Mixed expressions (those containing both fixed- and floating¬ 
point values) are permitted. 



Chapter I 

FORMAT OF THE SOURCE PROGRAM 


SOURCE PROGRAM An ALTAC source program consists of a series of ALTAC 
FORMATS language statements written in ALTAC format or FORTRAN 

format, or TAC instructions written in TAC instruction format.* 
The principal difference between ALTAC and FORTRAN formats 
is the location of fields on the program cards. This difference 
and other details of ALTAC and FORTRAN formats are pre¬ 
sented below. 


ALTAC FORMAT When written in ALTAC format, each statement of the source 

program begins a new line of the ALTAC coding form (see below). 
Statements too long to fit on one line are continued on succeeding 
lines, starting after column 16. 

After the program is written it is punched on cards, each line on 
the coding form corresponding to one card. Figure 1 shows the 
general appearance of an ALTAC source program as it is written 
on a standard ALTAC coding form. Figure 2 illustrates how this 
program appears on cards. 



Figure 1 — An ALTAC Program 


* Refer to the Philco 2000 TAC Manual, TM-11. 
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ALTAC III 


The ALTAC 
Coding Form 
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Figure 2 - An ALTAC Source Deck 


The program is transferred from cards to magnetic tape before 
being read into the computer. 


The following diagram shows the format of the ALTAC coding 
form and card: 


IDENTITY AND 

1 SEQUENCE 

L 

9 

LOCATION 

TO 16 

ALTAC STATEMENT 

17 80 






An explanation of the contents of each field is presented below, 
together with the coding conventions which must be followed when 
writing ALTAC statements in ALTAC format. 
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COLUMNS 

HEADING 

CONTENTS 

1-8 

IDENTITY 

Any combination of characters 


AND 

to be used as identity and se- 


SEQUENCE 

quence numbers. 



The ALTAC Translator ignores 
any information in these columns. 

9 

L 

A space, an asterisk (*), a T, or 
an I. 



A space signifies an ALTAC 
language card; an asterisk signi¬ 
fies a remarks card; a T signifies 
a TAC insert card; an I signifies 
the card containing the program 
identity. (See Chapter VIII.) 

10-16 

LOCATION 

Statement numbers or symbolic 
addresses. 



A statement number may be any 
unsigned integer from 0 to 99999. 

A symbolic address may be any 
alphanumeric symbol from one to 
seven characters long, the first 
character of which must be 
alphabetic. 

17-80 

ALTAC 

ALTAC language statements. 


STATEMENT 

Because remarks are permitted 
following an ALTAC statement, 
a dollar sign must be used to 
terminate the statement. The re¬ 
marks are written on the same 
line as the statement, and may 
start anywhere after the dollar 
sign. 



ALTAC statements may be com¬ 
pounded and continued on suc¬ 
ceeding cards (see page 14). 
Spaces appearing in an ALTAC 
statement are ignored, t 


t Except spaces in Hollerith fields, and in columns 17-32 of 
the I Card. See pages 41, 54, and 59. 
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ALTAC III 


FORTRAN 

FORMAT 


FORTRAN programs, or ALTAC programs written in FORTRAN 
format, are acceptable to the ALTAC Translator. The format is 
communicated to the ALTAC Translator by means of an IDENTIFY 
statement (see page 57). 

Figure 3 is an illustration of the standard FORTRAN card format. 
The contents of each column is discussed below: 
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Figure 3 — Standard FORTRAN Card 


COLUMNS 

HEADING 

CONTENTS 

1 

C 

A “C”, a “T”, or a space. 



A “C” indicates a comments 
or remarks card; a “T” 
indicates a TAC insert; a 
space indicates a FORTRAN 
statement. 

1-5 

STATEMENT 

NUMBER 

Same as for columns 10-16 
of an ALTAC card, except 
that the first character of a 
symbolic address cannot be 
a “C” or a “T” in column 1. 



Because remarks are not 
permitted in FORTRAN 
statements the dollar sign is 
not needed to terminate the 
statement. 

6 

CONTINUATION 

For a single statement: Blank 
For a continuation card: 
any non-blank character. 

7-72 

FORTRAN 

STATEMENT 

FORTRAN statements 

73-80 

IDENTIFICATION 

Identity and sequence num¬ 
bers. 
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ALTAC 

CHARACTERS 


The characters that are allowable in ALTAC statementst are: 

• All decimal digits. 

• All alphabetic characters. 

• The twelve special characters +-*/(),.; = 
space (denoted by A ) and $. 


t Additional characters shown in Appendix A are also allowable, 
provided they appear as a Hollerith field in a FORMAT state¬ 
ment (see page 41). 




Chapter II 

BASIC ELEMENTS OF THE ALTAC LANGUAGE: 
CONSTANTS, VARIABLES, SUBSCRIPTS, 
AND EXPRESSIONS 


In the ALTAC Language there are provisions for expressing 
constants, subscripted and non-subscripted variables, Hollerith 
fields, and arrays of up to four dimensions. When linked together 
with certain ALTAC “operators” (see page 10) these elements 
form expressions meaningful to the ALTAC Translator. 


CONSTANTS ALTAC constants are of two types - fixed point and floating point. 

These are defined as follows. 


Fixed-Point Fixed-point constants are constants which are written in the 

Constants following general form: 


GENERAL FORM 

EXAMPLES 

Any decimal integer in the range 

7 

-32767 to +32767. 

+3895 


-50 


If the absolute value of a constant is greater than 32767, it is 
treated as a floating-point constant (see next page). 


When used as a subscript, a fixed-point constant is treated 
modulo the size of core storage (the number of memory locations) 
in the object machine. 


Unsigned fixed-point constants are regarded as positive. The 
fixed-point constants +0 and -0 are the same in the object 
program. 
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ALTAC 111 


Floating-Point 

Constants 


VARIABLES 


Fixed-Point 

Variables 


Floating-Point 

Variables 


Floating-point constants are constants which are written in the 
following general form: 


GENERAL FORM 

EXAMPLES 

Any decimal number whose absolute 
value is greater than 32767, or which 
is written either with a decimal point 
or with a decimal exponent preceded 
by an E. (The letter E means “times 

10 to the power”.) 

The magnitude of the number thus ex¬ 
pressed must either be zero, or must 
lie in the range 10“^^ to lO 1 ^. 

+ 1. 

3.14 or .314E1 
-.0062 or -6.2E-3 
+101E5 

98765 


Note that the floating-point constants +0. and -0. are the same 
in the object program, while the fixed-point constant 0 and the 
floating-point constant 0. are not the same in the object program. 

The name of a variable may consist of from one to seven alpha¬ 
numeric characters. The first character, which must be alpha¬ 
betic, determines the mode (fixed- or floating-point) of the 
variable. 

Fixed-point variables are variables whose names are written in 
the following general form: 


GENERAL FORM 

EXAMPLES 

Name contains 1-7 alphanumeric char¬ 
acters, the first of which is either /, 

J, K , L, M, or N. 

1 

JOB38 

KAPPA 

NUMBER5 


Fixed-point variables can assume any integral value from 
-32768 to 32767 (except -0, since, as is the case with fixed-point 
constants, -0 and +0 are the same in the object program). If the 
value of a fixed-point variable lies outside this range, the value 
is reduced modulo 32768, or modulo the size of core storage of 
the object machine when used as a subscript. 

Floating-point variables are variables whose names are written 
in the following general form: 


GENERAL FORM 


EXAMPLES 


Name contains 1-7 alphanumeric char¬ 
acters, the first of which is alphabetic 
but not l, J, K, L, M, or N. 


ALPHA 

E 

RH07 
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SUBSCRIPTS 


Subscripted 

Variables 


Storage of 
Arrays 


Floating-point variables can assume the value 0., or any value not 
exceeding 10^00 n or less than 10"600 in magnitude. (An assumed 
value of -0. is the same as +0. in the object program.) 


A subscript may be any fixed-point expression (see page 10). By 
subscripting a variable, it can be made to refer to any element 
of a one-, two-, three-, or four-dimensional array. The number 
of subscripts must always agree with the number of dimensions 
of the array. 


GENERAL FORM 

EXAMPLES 

A fixed-or floating-point variable, 
followed by parentheses enclosing 

1, 2, 3, or 4 subscripts separated 
by commas. 

C(l) 

ALPHA(I, J) 

BETA(I, J, K, L) 

GAMMA(2* 1+3, J, K + 5) 


For each variable that appears in subscripted form, the size of 
the corresponding array (i.e., the subscripts of its last element) 
must be stated in a DIMENSION or TABLEDEF statement (see 
pages 25 and 28) preceding the first appearance of the variable. 

Subscripted variables may appear in subscripts to any desired 
depth. For example, the subscripted variable 

MATRIX(J(I),K) 

will be read as 

MATRIX. , . 

v k 

The variable J is also the name of an array and must appear in 
a DIMENSION or TABLEDEF statement. ALTAC will use the 
value of the fth element of array J as the first subscript of 
MATRIX. 

A general method for computing the effective address of a sub¬ 
scripted variable (i.e., the actual memory address represented 
by the variable) is presented on page 26. 

Arrays are stored forward in memory, in order of increasing 
absolute location, with the innermost subscript varying most 
rapidly. Thus, a two-dimensional array may be said to be stored 
“column-wise.'' For example, the elements of the 2x3 array 

an a 12 a 13 
a2i a 22 a 23 

would be stored in the order ajj, a 2 i, ai 2 , a 22 , a 13 , a 23 . 
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ALTAC III 


EXPRESSIONS 


Operation 

Symbols 


Processing of 
Expressions 


For three-dimensional arrays, elements of the first plane are 
stored before elements of the second plane, etc. This same 
method of storage is extended to four-dimensional arrays. 


An expression is any sequence of constants, variables (subscripted 
or non-subscripted), and functions, separated by operation symbols 
and parentheses, so as to form a meaningful, unambiguous 
mathematical expression. 


There are five “operators” 
Language. These are: 

+ denoting addition 

denoting subtraction 
* denoting multiplication 

/ denoting division 

** denoting exponentiation 


or operation symbols in ALTAC 

(binding strength 1) 

(binding strength 1) 
(binding strength 2) 
(binding strength 2) 
(binding strength 3) 


Any of the above operators may be used in an expression, to define 
relationships between constants, variables, and functions. The 
effect of each of their binding strengths is discussed below. 


The efficiency of the instructions compiled from ALTAC expres¬ 
sions depends to some extent on the way the expressions are 
written. ALTAC processes an expression according to the 
following rules: 

Rule 1 - In an expression of the form A opj B op 2 C, if the binding 
strengths of the operators opj and op 2 differ, the 
operations with the greater binding strength will be 
applied first. If the binding strengths oiopi and op 2 are 
the same, then the operations in general will be per¬ 
formed from left to right. For example, the expression 
.A*b**C will be computed as A*(B**C), and the expression 
A/B*C will be computed as (A/B)*C. 

Rule 2' - ALTAC assumes that the entire expression is paren¬ 
thesized. ALTAC scans from left to right until it 
encounters a right parenthesis; it then proceeds to 
evaluate the expression between this right parenthesis 
and its corresponding left parenthesis according to 
rule 1. After replacing the parenthetic expression by 
its value, ALTAC continues scanning (from left to right) 
until it encounters another right parenthesis, and pro¬ 
ceeds as above, until all parenthetic expressions are 
evaluated. 
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In an ALTAC expression there must be a corresponding right 
parenthesis for each left parenthesis used, and vice versa. If 
this condition is not met, the statement is illegal. 

An expression of the form A s4 should be written as A** (2**4) or 
as (A**2)**4 depending on whether A(2 4 ) or (A 2 ) 4 is meant. 
A**2**4 is ambiguous and is therefore not a valid ALTAC 
expression. 

No two operators are written consecutively. Negative exponents 
and fractional exponents of the form (x/y) should always be 
enclosed in parentheses, since exponentiation has the greatest 
binding strength. 


Mixed 

Expressions 


In mixed expressions the floating-point mode has precedence in 
specifying the mode of the value of the expression. For example, 
the expressions A**I and I**B would be converted to floating-point 
mode because of the floating-point variables ^Values resulting 
from fixed-point operations are always truncated to an integer. 


A special feature of the ALTAC system is that it permits the 
writing of mixed expressions. A mixed expression is one con¬ 
taining a combination of fixed- and floating-point variables or 
constants. 




Chapter III 

ARITHMETIC STATEMENTS 


The ALTAC Language comprises five types of statements: 

• Arithmetic Statements 

• Control Statements 

o Specification Statements 

• Input-Output Statements 

• Subprogram Statements 

Each type of statement performs a specific function. Arithmetic 
statements are discussed in this chapter; subsequent chapters 
are devoted to the discussion of the other statements. 


THE 

ARITHMETIC 

STATEMENT 


Arithmetic statements are written as equations. The equal sign 
signifies that the value of the variable on the left side is to be re¬ 
placed by the value of the expression on the right side, not that 
the variable equals the expression. (See, in particular, the third 
example below.) The general form of an arithmetic statement 
is: 


GENERAL FORM 

EXAMPLES 

v - e 

where v is a variable (subscripted or 
non-subscripted), and c is an expres¬ 
sion. 

Y = X 

A(l) = B(l)-C(l) 

SUM = SUM + X(l) 

KAPPA = A*(S-3.)/L 


The value of the expression (e) is always converted to the mode of 
the variable (v ). Thus, in the last example above, the floating-point 
value of the mixed expression would be truncated to the integer 
(and reduced modulo 32768 if necessary) before being stored in 
the memory location represented by KAPPA. For example, if the 
value of the expression is 7.998, the value 7 will be stored, not 8. 
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ALT AC III 


COMPOUND 

STATEMENTS 


The following are other examples of arithmetic statements: 


STATEMENT 

MEANING 

Z-A+B 

Add the quantity in A to the 
quantity in B and store the 
result in Z. 

X-KAPPA 

Convert the quantity in location 
KAPPA to floating-point and 
store the result in X. 

Y=Y+X(I) 

Add the quantity in the ith loca¬ 
tion of array X to the quantity 
in Y, and store the result in Y. 

N(I)=BETA*7 

Multiply the quantity in BETA 
by floating-point 7, convert the 
product to fixed-point and store 
the result in the ith location of 
array N. 


A series of arithmetic statements may be compounded (written 
sequentially) by linking them with semicolons to form one or 
more consecutive lines of coding. Statements continued on 
succeeding lines must start after column 16. The last statement 
of the series must be terminated by a dollar sign. 

The following is an example of a compound statement: 


LOCATION 

ALTAC STATEMENT 


BETA=3*Y; A=K-N/7; C-A+B $ 


Each statement is executed in the order in which it occurs in the 
program. Other examples of compound statements are presented 
on page 18. 

If a statement number gf symbolic address is used with a com¬ 
pound statement, only the first statement in the compound 
statement will be identified by the statement number or symbolic 
address. 





Chapter IV 

CONTROL STATEMENTS 


UNCONDITIONAL 
GO TO 


ASSIGNED 
GO TO 


This chapter discusses the sixteen ALTAC statements which 
control the sequence of operations in a program. In general, these 
control statements may be used to: 

• provide unconditional transfer of control to other state¬ 
ments in the program 

• test variables and provide conditional transfer of control 
to other statements in the program 

o set or test “program switches” to determine which of 
several paths a program may take 

o execute a particular sequence of statements repeatedly a 
specified number of times 

The Unconditional GO TO statement is used to unconditionally 
transfer control to other statements in the program. The general 
form of this statement is: 


GENERAL FORM 

EXAMPLES 

GO TO n 

where n is either a statement number 
or a symboliq address. 

GO TO 9 

GO TO ALPHA 


This statement causes control to be transferred to the statement 
with symbolic address or statement number n . 

A GO TO statement that is subject to modification by an ASSIGN 
statement (see next page) is called an Assigned GO TO. Assigned 
GO TO statements also provide unconditional transfer of control, 
and they may be written in either of two forms: 


GENERAL FORMS 

EXAMPLES 

GO TO m 

or 

GO TO m, (n v n 2 , , n k ) 

where m is a non-subscripted variable 
appearing in a previously executed 
ASSIGN statement, and n v n 2 , . . n k 
are each either a statement number or 
a symbolic address. 

GO TO Z 

GO TO Z, (7, K, 15) 
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ASSIGN 


COMPUTED 
GO TO 


The Assigned GO TO statement causes control to be transferred 
to the statement whose symbolic address or statement number is 
equal to the value last assigned to m by an ASSIGN statement. 
When the second form above is used, the variable m should not 
be assigned a value which does not appear in the parenthesized 
part of the statement. 


The ASSIGN statement is used to assign a value to a non- 
subscripted variable which appears in an Assigned GO TO 
statement. The general form of the ASSIGN statement is: 


GENERAL FORMS 

EXAMPLES 

ASSIGN n to m 

or 

ASSIGN (n) to m 

where n represents a statement num¬ 
ber, or a symbolic address if en¬ 
closed in parentheses, and m is a 
non-subscripted variable. 

ASSIGN 7 to Z 

ASSIGN (K) to Z 


When used with a subsequent GO TO statement, the ASSIGN 
statement causes the GO TO to transfer control to the statement 
whose symbolic address or statement number is n. 

The statement ASSIGN n to m is not the same as the arith¬ 
metic statement m = n. A variable which has been assigned can be 
used only for an Assigned GO TO, until it is re-established as 
an ordinary variable. 


The Computed GO TO statement is used to transfer control to 
one of several statements in the program. The general form of 
this statement is: 


GENERAL FORM 

EXAMPLES 

GO TO (n p n 2 , , n m ), i 

where n v n 2 , • . • , n m are each either 
a statement number or a symbolic ad¬ 
dress, and i is a non-subscripted fixed- 
point variable. 

GO TO (10, 15, 20), J 

GO TO (BETA, 6, DEL), K 


This statement functions as a program switch. It causes control 
to be transferred to the statement with symbolic address or 
statement number n 1 ,n 2 ,..., or n m , depending on whether the 
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IT 


value of i at the time of execution of the statement is 1 , 2 ,..., or m, 
respectively. 

Thus, if J in the first example above has the value 2 at the time 
of execution of the statement, control will be transferred to the 
statement with statement number 15. 


IF IF statements provide a means of making comparisons and condi¬ 

tionally transferring control. IF statements may be written in 
either of two forms: 


GENERAL FORMS 

EXAMPLES 

IF (e) n v n 2 , n 3 

or 

IF {ej) : ( e 2 ), S 

where e, e 2 and e 2 represent expres¬ 
sions, : represents a comparison sym¬ 
bol, s represents a statement, and n v 
n 2 , and are each either a statement 

number or a symbolic address. 

IF (X-Y)3, K, 6 

IF (X)GT(Y), GO TO 6 


Any of the following comparison symbols may be used in an IF 
statement of the second form above: 


SYMBOL 

MEANING 

E 

Equal to 

NE 

Not equal to 

LT 

Less than 

LTE 

Less than or equal to 

GT 

Greater than 

GTE 

Greater than or equal to 


In the first form above, control would be transferred to the 
statement with symbolic address or statement number nj , n 2 , or 
n 3 , if the value of the expression denoted by e is less than, equal to, 
or greater than zero, respectively. 

In the second form, control would be transferred to the statement 
represented by S, if the relationship (denoted by the comparison 
symbol) between the expressions e 1 and e s is met. If the relation¬ 
ship is not met, the next statement is executed. 
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COMPOUND IF 
STATEMENTS 


SENSE LIGHT 


If several statements are to be executed as a result of satisfying a 
single IF condition, the dependent statement S (inthe second form 
above) may be written as a compound statement terminated by 
another IF statement (see Compound IF statements below), or by 
a dollar sign. For example, if the condition (X)E (Y) is satisfied 
in the following: 

IF(X)E (Y),I=J+6;Z=A+BETA-2;GO TO KAPPA $ 

all three statements (making up the dependent statement S) follow¬ 
ing the IF condition would be executed. If the condition (X)E(Y) is 
not satisfied, all three statements will be ignored, and control 
will be transferred to the statement following the IF statement. 

The expressions ej and e% in the second form need not be in the 
same mode; however, more efficient coding will result if they are. 


A compound IF statement is composed of several IF statements 
separated by semi-colons. The following is an example of a 
compound IF statement: 

IF(X) E (Y),I=J+l;IF(X)GT(Y),I=J-l;GO TO K $ 


The object program tests the conditions in sequence until it finds 
one condition that is satisfied. The dependent statement(s) following 
this satisfied IF condition are then executed. The remainder of 
the compound statement is ignored. The program then proceeds 
to the first statement which follows the compound IF statement. 


The SENSE LIGHT statement is used to set a particular bit of a 
word in memory to 1, or all bits to zero, simulating an on or off 
condition respectively. The lights or bits are numbered from 1 to 
48, and are referred to in the following manner: 


GENERAL FORM 

EXAMPLES 

SENSE LIGHT i 

where i is any unsigned integer 0-48. 

SENSE LIGHT 40 


If i has the value zero, all lights are turned off. If i has any other 
value 1-48, then sense light i is turned on. 
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IF SENSE 
LIGHT 


IF SENSE 
SWITCH 


IF SENSE 


The IF SENSE LIGHT statement is used to test a sense light (set 
by a previous SENSE LIGHT statement) and to turn it off. The 
general form of this statement is: 


GENERAL FORM 

EXAMPLES 

IF (SENSE LIGHT i)n v « 2 

where i is any unsigned integer 1-48, 
and n ; and n 2 are each either a state¬ 
ment number or a symbolic address. 

IF (SENSE LIGHT 7)5, 10 

IF (SENSE LIGHT 40)K, 7 


This statement causes control to be transferred to the statement 
with symbolic address or statement number nj or **g, if sense 
light* is on or off, respectively. If the sense light is on, it is turned 
off prior to transfer of control. 


The IF SENSE SWITCH statement is used to test a sense switch. 
A sense switch is one of the forty-eight toggles numbered 0-47 on 
the Philco 2000 Console. (Reference to sense switch 48 is inter¬ 
preted as a reference to sense switch 0.) This statement is 
written as follows: 


GENERAL FORM 

EXAMPLES 

IF (SENSE SWITCH i) n v « 2 

where i is any unsigned integer 0-48, 
and n 1 and are each either a state¬ 

ment number or a symbolic address. 

IF (SENSE SWITCH 9)15, 30 

IF (SENSE SWITCH 37)4, BETA 


The IF SENSE SWITCH statement causes control to be transferred 
to the statement with symbolic address or statement number or 
n 2 , if sense switch* is on or off, respectively. 


BIT The IF SENSE BIT statement is used to test a sense bit. A sense 

bit is one of forty-eight bits in a memory location* within an 
operating system. The general form of this statement is: 


GENERAL FORM 

EXAMPLES 

IF (SENSE BIT i) n v n 2 

where i is an unsigned integer 0-48, 
and n 1 and n 2 are each either a state¬ 
ment number or a symbolic address. 

IF (SENSE BIT 24)9, 12 

IF (SENSE BIT 40)B, KAPPA 


* In the Philco Operating System SYS, the address of the memory 
location is 49. 
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This statement causes control to be transferred to the statement 
with symbolic address or statement number n 1 or n®, if bit i of 
of the memory location is 1 or 0, respectively. Reference to 
sense bit 48 is interpreted as reference to sense bit 0. 


IF OVERFLOW The IF OVERFLOW statement is used to test an overflow indicator 

for floating-point exponent fault. The general form of this state¬ 
ment is: 


GENERAL FORM 

EXAMPLES 

IF OVERFLOW n v n 2 

where n 1 and n 2 are each either a 
statement number or a symbolic ad¬ 
dress. 

IF OVERFLOW 6, 25 

IF OVERFLOW D, LAMBDA 


If floating-point exponent fault occurred, the overflow indicator 
is cleared to zero and control is transferred to the statement 
with symbolic address or statement number n 1 . If overflow did 
not occur, control is transferred to the statement with symbolic 
address or statement number n 2 . 

The FORTRAN statements IF ACCUMULATOR OVERFLOW, 
IF QUOTIENT OVERFLOW, and IF DIVIDE CHECK are all 
treated as IF OVERFLOW statements by ALTAC. 


DO The DO statement is used to execute a series of instructions 

repeatedly a specified number of times. This statement may be 
written in either of two forms: 


GENERAL FORMS 

EXAMPLES 

DO n i = m m 2 , m^ 

DO 7 1 = 1, 9, 2 

or 

DO (K) J = 1, 16, 3 

DO ( n ) i - m^ m 2 , rn ^ 

DO 5 K = 1, N 

where n is a statement number, or a 

QxTl7 K = iT^y— 

symbolic address if enclosed in 
parentheses; / is a non-subscripted 
fixed-point variable; andwz I# m 2 , and 
m 3 are each either an unsigned 
fixed-point constant or a non-sub- 
scripted fixed-point variable. 
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The DO statement causes repeated execution of all statements 
within its range. The range of a DO statement extends from the 
first statement following the DO statement up to and including 
the statement whose symbolic address or statement number is n. 

The statements in the range are executed repeatedly, first for 
i=mj, and each succeeding time for i incremented by m 3 , until 
the value of i exceeds m 2 . When the value of i exceeds m z , the 
DO is said to be satisfied, and control is transferred to the first 
statement following the statement with symbolic address or 
statement number n. 

The fixed-point variable i is called the index of the DO. nij repre¬ 
sents the initial value off, m 2 the limiting value, and m 3 the 
incrementing quantity. If m 3 is omitted, it is assumed to be 1; 
if m z is omitted, it is assumed to be m 1 . 

In the special case where both m ; and m 2 ar ei, the DO is auto¬ 
matically satisfied at the end of its range and the value of i re¬ 
mains as mj. 


The following is an example of a DO statement: 


STATEMENT 

MEANING 

DO (ALPHA) 1=1,5,2 

Execute all statements immediately 
following, up to and including the 
statement with symbolic address 
ALPHA, first for 1=1, next for 1=3, 
and last for 1=5; then transfer con¬ 
trol to the statement following the 
statement whose symbolic address 
is ALPHA. 


Statements in the range of a DO may themselves use the current 
value of the index, but are not permitted to redefine this value. 
This restriction, therefore, automatically excludes a DO in the 
range of another DO with the same index name. 

A GO TO statement or an IF statement of the form IF (e) n-, ,n?,no 
should not be the last statement in the range of a DO. 

DO Nests . The range of a DO may include other DO statements, 
provided that the DO's are properly nested. A set of DO's is 
considered to be properly nested if the following rule is observed: 

• If a DO statement is in the range of another DO, all statements 
in the range of the former DO must also be in the range of 




22 


ALTAC III 


the latter. The following is an illustration of proper and 
improper nesting arrangements. 

PERMITTED NOT PERMITTED 


DO 



Control cannot be transferred into the range of a DO from outside 



Transfers 1, 3, and 6 are permitted. Transfer 4 is permitted only 
if it adheres to the provisions stated in the exception above. 
Transfers 2 and 5 are not permitted. 


If a DO has been satisfied and control transferred out of its 
range, the value of the index controlled by the DO is no longer 
defined, and must be redefined prior to its use again. If exit is 
made before the DO is satisfied, the current value of the index 
remains available for use. 

In nested DO loops, the index value of one DO may be used by the 
other DO’s as indexing parameters, or as subscripts or operands 
in other statements. For example: 


DO 15 J=1,N $ 
DO 13 K=J,40 $ 
SUM=A(J)-J $ 
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CONTINUE 


PAUSE 


STOP 


The CONTINUE statement is used primarily as the last statement 
in the range of a DO, and serves as a common point to which 
control is transferred. It generates no coding, other than the 
assignment of a statement number or symbolic address for pur¬ 
poses of modifying and testing the index. The general form of this 
statement is: 


GENERAL FORM 

EXAMPLE 

CONTINUE 

CONTINUE 


At the end of the range of a DO, CONTINUE simply means “do 
nothing, but proceed to modify and test the index. ” 

If the first executable statement in an ALTAC program is a 
TAC insert (see page 57), then a CONTINUE statement must 
precede the TAC insert (including the STARTTAC statement, 
if any). 


The PAUSE statement is used to provide a temporary halt in a 
program. The general form of this statement is: 


GENERAL FORM 

EXAMPLES 

PAUSE 

where n is any unsigned fixed-point 
octal number of up to 5 digits. If n 
is omitted, zero is assumed. 

PAUSE 

PAUSE 111 

PAUSE 77777 


Upon executing a PAUSE statement, the computer will halt dis¬ 
playing the octal number n . Pressing ADVANCE on the console 
will cause the program to resume operation, starting at the next 
sequential statement. 


The STOP statement is used to signal the end of a program run. 
The general form of this statement is: 


GENERAL FORM 

EXAMPLE 

STOP 

STOP 


When this statement is executed, all tapes will be run out 
(see page 36), and control transferred to the operating system used. 







Chapter V 

SPECIFICATION STATEMENTS 


DIMENSION 


The ALTAC Language includes four Specification Statements: 
DIMENSION, EQUIVALENCE, COMMON, and TABLEDEF. These 
are non-executable statements; they provide the ALTAC Translator 
with information concerning the allocation of storage, and the 
arrangement of data in memory. The function of each of these 
statements is discussed below. 


The DIMENSION statement provides ALTAC with the information 
necessary to allocate storage for an array in the source program. 
The name of each array together with its dimensions must appear 
in a DIMENSION (or TABLEDEF) statement. The general form of 
the DIMENSION statement is: 


GENERAL FORM 

EXAMPLES 

DIMENSION v v v 2 , v y ... 

where each v is a variable, sub¬ 
scripted with 1, 2, 3, or 4 un¬ 
signed fixed-point constants, 
representing the maximum dimen¬ 
sions (last element) of the cor¬ 
responding array. 

DIMENSION A(5), B(4, 7) 

DIMENSION KAPPA(3, 5,7), 

R 1-10(2, 4, 6, 8) 


In the second example above, KAPPA is shown to be the name of 
a 3-dimensional array for which 105 (3x5x7) locations are 
reserved; RHO is the name of a four dimensional array for 
which 384 (2x4x6x8) locations are reserved. 

If the name of an array appearing in a DIMENSION (or TABLEDEF) 
statement also appears in an EQUIVALENCE and/or COMMON 
statement, the EQUIVALENCE statement must precede the 
COMMON, DIMENSION or TABLEDEF statements; the COMMON 
statement, in turn, must precede the DIMENSION or TABLEDEF 
statement. 

There may be several DIMENSION statements in a program, each 
of which must precede the first appearance* of any of its variables 
in the program. 


* Not considering appearances in EQUIVALENCE and COMMON 
statements. 
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EQUIVALENCE 


Computing 

Effective 

Addresses 


A DIMENSION statement should not contain the names of functions 
or subroutines. 


The EQUIVALENCE statement permits the programmer to con¬ 
serve storage by specifying that storage locations are to be 
shared by two or more variables. EQUIVALENCE is also used in 
conjunction with the COMMON statement, to control the allocation 
of storage in the common storage area (seepage 27). The general 
form of the EQUIVALENCE statement is: 


GENERAL FORM 

EXAMPLE 

EQUIVALENCE (vj, v 2 , v y . . . ), 

K' v k + i -)'••• 

where each v represents a variable. 

A single unsigned fixed-point con¬ 
stant in parentheses may follow a 
variable. 

EQUIVALENCE (A, B(5), C), 
(BETA(IO), 

RHO, X(2)) 


In the example shown above, arrays A, B, and C are to be 
assigned storage locations in such a way that the first element of 
array A, the fifth element of array B, and the first element of 
array C all occupy the same location. Similarly, the tenth 
element of array BETA occupies the same memory location as 
the first element of array RHO, and the second element of 
array X. A programmer can thus refer to the same memory 
location by different names. It is his responsibility, however, to 
insure that the appropriate values appear in these locations at 
the time of reference. 


It may be necessary for a programmer to know the effective 
address of a subscripted variable, for example, when planning to 
use the EQUIVALENCE statement. By means of the following 
information, he can calculate this address: 

Assuming a subscripted variable of the form A(Ji,J 2 ,J 3 ,J 4), with 
corresponding DIMENSION statement 

DIMENSION A(N 1 ,N 2 ,N 3 ,N4) 

the general equation for computing the effective address is: 

The address of A(J 1 ,J 2 ,J 3 ,J4) = A+(J 1 -1)+N 1 (J 2 -1)+N 1 N 2 (J 3 -1)+ 

n 1 n 2 n 3 (j 4 -i) 
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COMMON 


For a variable of less than four dimensions, substitute 1 for the 
unused subscripts in the general equation above. Thus, if 
A(2,l,2) is a subscripted variable with dimensions A(3,3,3), the 
effective address of A(2,l,2) = A+(2-l)+3(l-l)+9(2-l) = A + 10, the 
eleventh element of array A. 


The COMMON statement is used to reserve areas of common 
storage which are equally accessible to different object programs 
in memory. The general form of this statement is: 


GENERAL FORM 

EXAMPLE 

COMMON v j, v 2i . . . 

where each v is the name of a variable 
or is a non-subscripted array name. 

COMMON ZETA, B, TAU 


The variables are placed in common storage in the order that 
they appear in the COMMON statement, provided none of them 
appear in an EQUIVALENCE statement. Variables which appear 
in both EQUIVALENCE and COMMON statements will be placed 
first in the common area, in the order that they appear in the 
EQUIVALENCE statement. For example, according to the state¬ 
ments: 


EQUIVALENCE (D,H), (A,F) 

COMMON A,B,C,D,E 
DIMENSION B(3),C(2),E(2) 
common storage would be assigned as follows: 

D and H 
A and F 
B (1) 

B (2) 

B (3) 

C (1) 

C (2) 

E (1) 

E (2) 

The size of the EQUIVALENCE storage within COMMON plus the 
total size of those variables which appear in COMMON and do 
not appear in EQUIVALENCE, is the size of the area of memory 
reserved for common storage. 
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TABLEDEF 


The TABLEDEF statement is used to specify the dimensions of 
an array which has been defined by means of a TAC insert 
(see page 57). The general form of this statement is: 


GENERAL FORM 

EXAMPLE 

TABLEDEF v lt v 2 , . . . 

where each v is a variable, sub¬ 
scripted with 1/2, 3, or 4 un¬ 
signed fixed-point constants, 
representing the maximum dimen¬ 
sions (last element) of the cor¬ 
responding array. 

TABLEDEF A(10), B(5, 8), 
DELTA(3,4,5) 


ALTAC does not reserve storage for an array which appears 
in a TABLEDEF statement, unless the array also appears in an 
EQUIVALENCE or COMMON statement, or appears as a formal 
parameter of a subprogram (see page 46). 




Chapter VI 

INPUT-OUTPUT STATEMENTS 


ORDER 

STATEMENTS 


There are two kinds of input-output statements in ALTAC: 
ORDER statements and FORMAT statements. These statements 
are used together to specify the transmission of information be¬ 
tween core and magnetic tapes. 

ORDER statements specify either an input or an output operation 
to be performed, or the manipulation of magnetic tapes. These 
statements may contain a tape reference, a FORMAT statement 
reference, and a list of the quantities to be transmitted. 

FORMAT statements provide information about the form and 
arrangement of data, and the type of data conversion to be 
performed. 

There are thirteen ORDER statements in ALTAC. These may be 
grouped as follows: 

• Six statements which provide for the transfer of binary coded 
(6 bits per character) information: 

READ n, List 

PRINT n, List 

PUNCH n, List 

READ INPUT TAPE i, n, List 

WRITE OUTPUT TAPE i, n, List 

PUNCH OUTPUT TAPE i, n, List 

• Two statements which provide for the transfer of binary 
information: 

READ TAPE i, List 
WRITE TAPE i, List 

• Five statements which provide for the manipulation of mag¬ 
netic tapes: 

END FILE i 
RUNOUT i 
BACKSPACE i 
REWIND i 
LOCKOUT i 

The parameter i represents a magnetic tape unit, n represents 
the statement number or symbolic address of a FORMAT state¬ 
ment, and List represents a list of the variables and arrays that 
are to be transferred, and the order of transfer. 
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Magnetic Tape 
References 


Format 

Statement 

References 


Lists 


The parameter i, representing a magnetic tape unit, is a fixed- 
point variable or an unsigned fixed-point constant. If i is a fixed- 
point variable, it must be defined prior to its use. If i is a fixe$- 
point constant, the following rules apply: 

• If i consists of two digits or less, the digits will be inter¬ 
preted as the tape number. 

• If i consists of more than two digits, the last two digits will 
be interpreted as a data select* character, while the preced¬ 
ing digits will be interpreted-as the tape number. 

Both the data select character and the tape number are treated 
modulo 16. 


The parameter n is the statement number or symbolic address 
of the FORMAT statement that is associated with the ORDER 
statement. In a READ, PRINT, or PUNCH statement, a symbolic 
address n must always be enclosed in parentheses. 


ORDER statements which call for the transfer of information 
ordinarily contain a List of the quantities to be transmitted. 
(Cases where the List parameter is omitted are discussed on 
page 31.) A List refers to specific locations in memory, and is 
represented by a series of subscripted or non-subscripted vari¬ 
ables separated by commas. The following are some examples 
of Lists: 

A 

A,B 

A,B,(C(I), 1=1,10) 

A,B,((C(I,J), I=3,10,2),D(J,7),J=1,5) 


A List is read from left to right with repetition for variables 
enclosed in parentheses. 


Information is transferred item by item in the order that the 
variables appear in the List. When no items remain, transmission 
ceases. 


* Refer to the Philco 2000 Input-Output Systems Manual (TM-16). 
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The iterative action involved in assigning values to the elements 
of a parenthesized List is the same as that for a DO loop. For 
example, the order of operations for 


A,C,(B(I), 1=1,10), D 


is the same as for the following: 


7 


A 

C 

DO 7 1=1,10 
B(I) 

D 


For a List of the form 


A,X(5),((D(I,J), I=1,3,2),BETA(1,J),J=1,2) 


the information would be processed as follows: 

A 

X(5) 

D(l,l) 

D(3,l) 

BETA(1,1) 

D(l,2) 

D(3,2) 

BETA(1,2) 


Simplifying 
a List 


Omission of 
The List 
Parameter 


An entire array may be transmitted by writing only the name of 
the array. For example, if the names ALPHA and BETA pre¬ 
viously appear in a DIMENSION statement, the statement 

READ INPUT TAPE i ,n, ALPHA,BETA$ 

would cause the input of all the elements of arrays ALPHA and 
BETA, in the order in which they are stored in memory. When¬ 
ever possible the programmer should use this abbreviated nota¬ 
tion, for its use will result in a more efficient object program. 


The List parameter is omitted in the following cases: 
o To space forward over an input record. 

© To write a blank record on tape. (On binary tapes, a blank 

record is interpreted as an end-of-file record.*) 

o To read or write a record described by a FORMAT state¬ 
ment that contains Hollerith specifications only. 


*See also the END FILE statement, page 35. 
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READ The READ statement is used to read binary coded information 

from the system input tape*. The general form of this statement 
is: 


GENERAL FORM 

EXAMPLES 

READ n, List 

where n and List are as described 
on page 30. 

READ 11, A, (B(l), 1 = 1, 5) 

READ(K), (BETA(I), 1 = 1, 10) 


This statement causes card after card of information to be read 
from the system ipput tape until the amount of information speci¬ 
fied by the List is transmitted. The information that is read is 
converted according to the FORMAT statement whose symbolic 
address or statement number is n , and is stored in the memory 
locations specified in the List. If the FORMAT statement specifies 
more than 80 characters to be read from a card, an error will 
result and control will be transferred to the operating system. 


READ INPUT TAPE The READ INPUT TAPE statement is used to read binary coded 

information from a tape. The general form of this statement is: 


GENERAL FORM 

EXAMPLES 

READ INPUT TAPE i, n, List 

where i, n, and List are as described 
on page 30. 

READ INPUT TAPE 9, 30, 

(A(l), 1 = 1, 99, 2) 

READ INPUT TAPE 6, 25, 
ALPHA, BETA 

READ INPUT TAPE INAME, 
KAPPA, (A(J), J = 1, N) 


This statement causes binary coded information to be read a 
card at a time from tape i . The information is converted accord¬ 
ing to the FORMAT statement whose symbolic address or state¬ 
ment number is n , and stored in the memory locations specified 
in the List. 

If the FORMAT statement specifies more than 80 characters to 
be read from a card, an error will result and control will be 
transferred to the operating system. 


* System input and output tapes are those input or output tapes 
that are defined and/or controlled by a particular operating 
system. 
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READ TAPE The READ TAPE statement is used to read binary information 

from tape. The general form of this statement is: 


GENERAL FORM 

EXAMPLES 

READ TAPE i, List 

where i and List are as described 
on page 30. 

READ TAPE 10, (A(l), 1 = 1, 20) 

READ TAPE L, (ALPHA(J), J = 1, N, 2) 


This statement causes binary information to be read from tape? 
into the memory locations specified in the List. No conversion 
is required; consequently there is no FORMAT reference n in 
this statement. 

The binary information must have been writtenby a WRITE TAPE 
statement (see page 35), and will contain as many words as are 
specified in its List. 

All or part of the record may be read by the READ TAPE state¬ 
ment, after which the tape is positioned at the beginning of the 
next record. Attempting to read more words than were written 
in the record will result in an error and control will be trans¬ 
ferred to the operating system. 


PRINT The PRINT statement is used to write binary-coded information 

on the system output tape, edited for the off-line High Speed 
Printer. The general form of this statement is: 


GENERAL FORM 

EXAMPLES 

PRINT n, List 

where n and List are as described 
on page 30. 

PRINT 34, A, (B(l), 1 = 1, 7) 

PRINT(K), A, (BETA(I), 1 = 1, 16, 3) 


This statement causes information specified in the List to be 
written on the system output tape (defined by the installation), 
edited for the High Speed Printer. The tape is then printed off-line. 

As many as 120 characters may be printed on a line, successive 
lines are printed in accordance with the FORMAT statement 
whose symbolic address or statement number is n, until the com¬ 
plete List has been satisfied. If the FORMAT statement specifies 
more than 120 characters to be printed on a line an error will 
result, and control will be transferred to the operating system. 
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PUNCH 


PUNCH 

TAPE 


The PUNCH statement is used to write binary-coded information 
on the system output tape, edited for the off-line punch. The 
general form of this statement is: 


GENERAL FORM 

EXAMPLES 

PUNCH n. List 

where n and List are as described 
on page 30. 

PUNCH 100, (ALPHA(I), 1 = 1, 30) 

PUNCH(KAPPA), A, B, (C(J), J = 1,50) 


This statement causes information specified in the List to be 
written on the system output tape, edited for the Card Punch. 
The tape is then punched off-line. 

As many as 80 columns can be punched on a card. Successive 
cards are punched, according to the FORMAT statement with 
symbolic address or statement number «, until the List has been 
satisfied. If the FORMAT statement specifies more than 80 char¬ 
acters to be punched on a card, an error will result and control 
will be transferred to the operating system. 


OUTPUT' The PUNCH OUTPUT TAPE statement is used to write binary- 

coded information on a tape, edited for the off-line punch. The 
general form of this statement is: 


GENERAL FORM 

EXAMPLES 

PUNCH OUTPUT TAPE i, n, List 

where i, n, and List are as described 
on page 30. 

PUNCH OUTPUT TAPE 13, K, 
(BETA(I), 1 = 1, 40) 

PUNCH OUTPUT TAPE 1302, 

K, ALPHA, BETA 

PUNCH OUTPUT TAPE L, K, 
(GAMMA(I), 1 = 1, 10) 


This statement causes binary coded information in the List to be 
written on tape i , edited for the Card Punch according to the 
FORMAT statement with symbolic address or statement number 
n. Tape i is then punched off-line. 

Successive cards are punched in accordance with the FORMAT 
statement until the List is satisfied. If the FORMAT statement 
specifies more than 80 characters to be punched on a card, an 
error will result and control will be transferred to the operating 
system. 
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WRITE OUTPUT 
TAPE 


WRITE TAPE 


END FILE 


The WRITE OUTPUT TAPE statement is used to write binary 
coded information on a tape edited for the off-line High Speed 
Printer. The general form of this statement is: 


GENERAL FORM 

EXAMPLES 

WRITE OUTPUT TAPE i, n, List 

where i, n, and List are as described 
on page 30. 

WRITE OUTPUT TAPE 12, K, 
(BETA(I), 1 = 1, 40) 

WRITE OUTPUT TAPE 1205, 

K, DELTA, GAMMA 

WRITE OUTPUT TAPE M, 
KAPPA, A, (B(l), 1 = 1, 30) 


This statement causes binary coded information specified in the 
List to be written on magnetic tape i , edited for the High Speed 
Printer according to the FORMAT statement with symbolic ad- 
dress or statement under n. The information is printed off-line. 
As many as 120 characters can be printed per line. Successive 
lines are printed in accordance with the FORMAT statement, 
until the List is satisfied. If the FORMAT statement specifies 
more than 120 characters to be printed on a line, an error will 
result and control will be transferred to the operating system. 


The WRITE TAPE statement is used to write binary information 
on tape. The general form of this statement is: 


GENERAL FORM 

EXAMPLES 

WRITE TAPE i, List 

where i and List are as described on 
page 30. 

WRITE TAPE 10, (A(l), 1 = 1, 20) 

WRITE TAPE L,(ALPHA(J), 

J=l, 25, 2) 


This statement causes a record of binary information to be writ¬ 
ten on tape i . The record is written in a format that is acceptable 
to the READ TAPE statement and consists of all the words speci¬ 
fied in the List. 


The END FILE statement is used to write an end-of-file mark on 
a tape. The general form of this statement is: 


GENERAL FORM 

EXAMPLES 

END FILE i 

where i is an unsigned fixed-point 
constant or fixed-point variable, as 
described on page 30. 

END FILE 12 

END FILE K 

END FILE 506 
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RUNOUT 


BACKSPACE 


This statement causes an end-of-file indicator to be written on 
tape i. In the case where tape i was last used as an input data tape 
or is a system controlled tape, no end-of-file indicator is written. 


The RUNOUT statement may be used to position an input tape or 
to transmit the contents of an output buffer block.* The general 
form of this statement is: 


GENERAL FORM 

EXAMPLES 

RUNOUT or RUNOUT / 

RUNOUT 

where i is an unsigned fixed-point 

RUNOUT 9 

constant or fixed-point variable, 

RUNOUT K 

as described on page 30. 


The RUNOUT statement is interpreted as follows: 

• If the last reference to tape i was made by an input statement, 
the RUNOUT i statement will position the tape at the end of 
the block which contains the last processed record. 

• If the last reference to tape i was made by an output state¬ 
ment, the RUNOUT i statement will complete the editing 
and transmit the contents of the output buffer blocks to that 
tape, if necessary. 

A RUNOUT statement without a tape reference is interpreted as 

a runout of all tapes used. 

The BACKSPACE statement is used to backspace a binary tape. 

The general form of this statement is: 


GENERAL FORM 

EXAMPLES 

BACKSPACE i 

where i is an unsigned fixed-point 
constant or fixed-point variable, 
referring to a binary tape. 

BACKSPACE 10 

BACKSPACE L 


This statement causes binary tape i to be backspaced one record. 


*128 word area in memory or on magnetic tape. 
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REWIND 


LOCKOUT 


FORMAT 

STATEMENTS 


The REWIND statement is used to rewind a tape. The general 
form of this statement is: 


GENERAL FORM 

EXAMPLES 

REWIND i 

REWIND 12 

where i is a fixed-point constant or 

REWIND K 

fixed-point variable, as described 


on page 30. 



This statement causes tape i to be rewound. If the last reference 
to tape i was made by an output statement, the REWIND statement 
will complete the editing and transmit the contents of the output 
buffer blocks before the rewind occurs. 


The LOCKOUT statement is used to rewind and lockout* a tape. 
The general form of this statement is: 


GENERAL FORM 

EXAMPLES 

LOCKOUT i 

where i is a fixed-point constant or 
fixed-point variable, as described 
on page 30. 

LOCKOUT 9 

LOCKOUT K 


This statement causes tape i to be rewound with lockout. If the 
last reference to tape i was made by an output statement, the 
LOCKOUT statement will complete the editing and transmit the 
contents of the output buffer blocks before the rewind with lockout 
occurs. 

The FORMAT statement is used to control the conversion of data 
to or from an internal form and an external form. FORMAT 
statements contain field descriptors which provide information 
about the external form of the data, and the type of data conversion 
to be performed. 

FORMAT statements are of the following general form: 


GENERAL FORM 

EXAMPLES 

FORMAT (d v . . dj 

where each d is a field descriptor. 

FORMAT (2H10.I3, F5.2, E8.3, A8/) 


* When a tape is “locked-out” it can no longer be referenced by 
the program, unless an operator intervenes and changes its 
lockout status. 
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FIELD 

DESCRIPTORS 


Numerical Field 
Descriptors 


Each unmodified* field descriptor describes one field. The left¬ 
most descriptor describes the first field, the next descriptor 
describes the second field, and so on. 

Each FORMAT statement must contain a statement reference in 
its location field. FORMAT statements are non-executable state¬ 
ments, and may therefore be placed anywhere in a program.** 


ALTAC field descriptors comprise the Iw, Fw.d, Ew.d, Ou; Aw, 
nH and nX descriptors. These descriptors may be used to de¬ 
scribe numeric, alphanumeric, and blank fields. 


Four forms of conversion of numerical data are available: 


DESCRIPTOR 

EXTERNAL FORM 

INTERNAL FORM 

Iw 

Decimal Integer 

Fixed-Point Binary 

Fw.d 

Fixed-Point 
Decimal 

Floating-Point Binary 

Ew.d 

Floating-Point 

Decimal 

Floating-Point Binary 

Ow 

Octal Integer 

Binary representation 
of the octal integer 


• I, F, E and O are control characters specifying the type of 
conversion. 

• w is an unsigned fixed-point constant representing the width 
(number of characters) of the field in the external medium. 

• d is an unsigned fixed-point integer representing the number 
of characters in the field which appear to the right of the 
decimal point. 

For F and E conversions, w may represent an input field of as 
many as 80 characters, corresponding to the contents of an entire 
card. For I conversions, an input quantity should not be greater 


* See Repetition of Similar Formats, page 41. 

** If all FORMAT statements are placed before the first execut¬ 
able statement of the source program, a more efficient object 
program will result. 
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than 32767 in magnitude; if it is, it is reduced modulo 32768. 
For 0 input conversions, w should not exceed 16; if w exceeds 16, 
only the right-most 16 characters of the field are used. 

An output field may contain as many as 80 characters on a card, 
or as many as 121* characters to a printed line. The output field 
always contains the right-most w characters of the output quantity, 
with leading spaces added to make up the w count where necessary. 

A numerical field may contain decimal or octal digits, decimal 
point, plus and minus signs, spaces, and the letter E (in the case 
of E and F input conversions). On input, non-leading spaces are 
interpreted as zeros. 

The character d represents the number of characters in the field 
which appear to the right of the decimal point. In the case of E 
output conversions, where the output quantities are ordinarily 
expressed in mantissa-exponent form (see below), d represents 
the number of fractional digits of the mantissa. 


If d is greater than 10, it is assumed to be 10. If the decimal 
point is omitted from an Fiv.d or an Eiv.d descriptor, the de¬ 
scriptor assumes the d specified (or assumed) for the previous 
F or E descriptor. 

A decimal point appearing in an input data field takes precedence 
over the d specification for that field. 

The acceptable forms of input fields for the E conversion are: 

±mantissa 

±mantissa±exponent 

±mantissaE±exponent 

±mantissaEexponent 

These forms may be written with or without a sign. 

The mantissa may be of any magnitude; the exponent may be any 
integer m the range -600 to 600. The output form for the E con¬ 
version with no scale factor (see page 40) is: 

w 

-‘-V 

'±0 .,xxx. ••• xxXjteee' 

-Y- - ' 

d 


* 120 printable characters plus a printer control character (see 
page 45). 
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Alphan umeric 
Field Descriptors 


Examples of Input Conversions 


If the data punched on the following card 



is described by the statement 

FORMAT(l2,F4.1,E7.2,04)$ 

the fields will be interpreted as 35,27.4,-1.62x10^, and octal 703. 
Examples of Output Conversions 

If the internal quantities 417,-.329,+.538x10^, and octal 627 are 
described by the statement: 

FORMAT (1H1I3,F6.2,E10.3,05)$ 

they will be represented externally as: 

417A-0.33A0.538+003A A627 

where A denotes a space, and the characters 1H1 in the FORMAT 
statement are printer control characters (see page 42), which 
cause the printer to skip to the top of the next page before printing 
the line. 


The descriptors Aw and wH are used to specify the form of alpha¬ 
numeric fields. An alphanumeric field may contain any of the 
Philco characters shown in Appendix A. 

The Aw descriptor may be used to describe a field of up to eight 
characters. 

For A input : w should not exceed 8; if w exceeds 8, the right¬ 
most 8 characters of the input field are used to fill the computer 
word. If w is less than 8, the w characters of the field are stored 
left justified with trailing blanks. 
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Blank Field 
Descriptor 


REPETITION OF 
SIMILAR FORMATS 


For_A output : if w is greater than 8, the 8 characters of the out¬ 
put field are preceded by w-8 spaces. If w is less than 8, the left¬ 
most tv characters of the computer word are transmitted. 

The alphanumeric field described by a wH descriptor, unlike that 
described by anAw> descriptor, is not limited to a single computer 
word. The u> characters of the field are written following the wH 
specification in the FORMAT statement. For example, 

41H ALPHANUMERIC=HOLLERITH=PHILCO CHARACTERS 

Note that spaces are significant, and are included in the w count. 
w may be any value not exceeding the record size (i.e., 121 char¬ 
acters when specifying a printed line of 120 characters, or 80 
characters per card). 

For H input : w characters are extracted from the input record 
and they replace the w characters following the wH specification. 

For H output : the w characters following the specification (or the 
characters which replace them, see H input above) are written as 
part of the output record. 


The descriptor wX may be used to skip w characters of an input 
record, or to insert w spaces in an output record. 

If the descriptor wX (or tvH) precedes another descriptor, the 
comma normally used to separate the two descriptors may be 
omitted. Only in the case of these two descriptors is this omis¬ 
sion permitted. 


When successive fields within a record are to be of the same 
format, a single descriptor may be used to specify this common 
format. The number of fields affected by this single descriptor 
is indicated by a fixed-point constant, n, which is prefixed to the 
descriptor ( I,F,E,0, or A). Thus, 

FORMAT (F6„2,F6.2,F6„2) 

and 

FORMAT (3F6.2) 

are equivalent. 


If the format of a group of fields are to be repeated n times, the 
descriptors for the group may be enclosed in parentheses, pre¬ 
ceded by the constant n. For example, the statement 


and 

are equivalent. 


FORMAT(F5.2,3XF5.2,3X)$ 

FORMAT(2(F5.2,3X))$ 
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SCALE FACTORS 


PRINTER OUTPUT 

CONTROL 

CHARACTERS 


MULTI-RECORD 

FORMATS 


To permit more general use of the F and E descriptors, a scale 
factor, nP, may precede the specification, n is a fixed-point con¬ 
stant, which may be negative or unsigned. (A plus sign is not a 
legitimate character in a FORMAT statement.) P is a control 
character. 

For F input and output conversions, the scale factor is defined 
such that: 


External Number = Internal Number x 10 w 

When nP is used with an E output descriptor, the mantissa of the 
output quantity is multiplied by 10 n and the exponent is reduced by 
n. Thus, if the quantities 536, 1624, .732x105, -were described by 
the statement 

FORMAT(I3,-1PF7.1,2PE10.1)$ 
the following would result: 

536 162.4 73.2+003 

The E input descriptor ignores the scale factor. 

Once nP is specified for an F or E descriptor, it will apply to all 
succeeding F or E descriptors within the FORMAT statement 
until another nP is specified. 


The first character of each record that is to be printed is treated 
as a vertical format character. Vertical format characters con¬ 
trol the vertical spacing of the paper on the High Speed Printer, 
and are interpreted as follows: 


CHARACTER 

1 

0 

A (space) 

+ 

Any other character used will 


MEANING 

skip to top of next page 
double space 
single space 
no space 

interpreted as single space. 


A single FORMAT statement may be used to describe several 
records. The descriptors of each record are separatedby slashes. 
For example, if data are to be printed according to the statement 


FORMAT(lHlI5,F8.2/lH A E9.2)$ 
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the first line would be printed according to descriptors 15 and 
F8.2, and the second line according to descriptor E9.2. If the 
second and all succeeding lines are to be printed according to 
descriptor E9.2, the specifications for these lines should be en¬ 
closed in another pair of parentheses, as follows: 

FORMAT(lHlI5,F8.2/(lHAE9.2))$ 

If the end of a format statement is reached before the List is sat¬ 
isfied, the format repeats from the last open (left) parenthesis. 


Both the slash and the last right parenthesis of a FORMAT state¬ 
ment indicate the end of a record. 

Consecutive slashes may be used in order to skip records; i.e., 
to skip an input card, or to produce a blank line or a blank card. 
n+1 consecutive slashes causes n records to be skipped. For 
example, 


III would cause two records to be skipped. 


FORMAT 

STATEMENT 

PROCESSING 


FORMAT statements are translated and stored as one or more 
consecutive word (W/) constants* by ALTAC during compilation. 
The first word begins with the first left parenthesis that followed 
the word “FORMAT”; the last word ends with the last right 
parenthesis with trailing blanks if necessary. Interpretation of 
the FORMAT statement is made at run time. 


FORMAT 

STATEMENTS READ 
IN DURING 
PROGRAM 
EXECUTION 


Although FORMAT statements are usually written in the source 
program, they may also be read in during the execution of the 
object program. For example, according to the statements: 


LOCATION 

ALTAC STATEMENT 

1 

DIMENSION SPEC (20), ALPHA(20)$ 

FORMAT (20A8) $ 

READ 1, SPEC $ 

READ (SPEC), ALPHA $ 


* Refer to the Philco 2000 TAC Manual, TM-11. 
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the alphanumeric data that is read into array SPEC by the first 
READ statement, is used as format specifications by the second 
READ statement. The format specifications (alphanumeric data) 
read into array SPEC must have been written as if they were 
appearing in a FORMAT statement in the source program, except 
that the word “FORMAT” is omitted (see preceding section). 



Chapter VII 

FUNCTIONS AND SUBROUTINE SUBPROGRAMS 


A function or a subroutine is a pre-coded set of instructions for 
performing a particular operation. 

There are three distinct types of functions in ALT AC: Arithmetic 
Statement Functions, Library Functions, and Function Subpro¬ 
grams.* There are also Subroutine Subprograms. 

An Arithmetic Statement Function is a function which is defined 
by a single arithmetic statement in the source program. A Li¬ 
brary Function is a function which is defined on the TAC library 
tape. A Function Subprogram is a function which is defined by a 
subprogram. A Subroutine Subprogram is a subroutine which is 
defined by a subprogram. Subroutine Subprograms differ from 
Functions in their output capacity and in the method in which 
they are referenced (see page 53). 

Arithmetic Function Statements should precede all other state¬ 
ments in the source program, except IDENTIFY, FUNCTION, 
SUBROUTINE, or the I card. 

Other details regarding Functions and Subroutine Subprograms 
are presented below. 


FUNCTION NAAAES The name of a function may be composed of from one to seven 

alphanumeric characters. The first character, which must be 
alphabetic, determines the mode of the value of the function. 

The following rules must be observed when naming functions: 

Rule 1 - If the name of a function is four to seven characters 
long and the last character is an F, then the value of the 
function is in fixed-point mode only if the first character 
is X. 

Rule 2 - If the name of a function is four to seven characters 
long and the last character is not an F, or if the name of 


* A subprogram is a separately written source program designed 
to operate under the control of a main program. Subprograms 
may also call other subprograms. 
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SUBROUTINE 

NAMES 


ARGUMENTS 


the function is less than four characters long, then the 
value of the function is in fixed-point mode only if the 
first character is I, J, K, L, M, or N. 

Rule 1 applies to Arithmetic Statement Functions and Library 
Functions; rule 2 applies to Function Subprograms. 


The name of a Subroutine Subprogram may be composed of from 
one to seven alphanumeric characters, the first character of 
which must be alphabetic. (Unlike function names, a subroutine 
name does not have any mode associated with it.) 


The arguments of a function or subroutine are written separated 
by commas, and enclosed in parentheses following the function 
or subroutine name. An argument of an Arithmetic Statement 
Function may be any expression. An argument of any other func¬ 
tion or any subroutine may be an expression, the name of an 
array, or a Hollerith field. 


The appearance of the name of a function in an expression, or the 
name of a subroutine in a CALL statement (see page 54), serves 
to call that function or subroutine. The function or subroutine is 
then computed using the arguments which appear after the func¬ 
tion name in the expression, or which appear after the subroutine 
name in the CALL statement. The arguments which appear after 
the function or subroutine name in the statement defining or iden¬ 
tifying the function or subroutine, ar e formal parameters. Each 
formal parameter is a single non-subscripted variable. These 
formal parameters are replaced by the corresponding arguments 
in the calling statement prior to the calculation of the function or 
subroutine. 


The arguments of the function or subroutine in the calling state¬ 
ment must always agree in number, order, and mode, with the 
formal parameters in the statement defining or identifying the 
function or subroutine. 


The number* of arguments following a function or subroutine 
name can be from 1 to 31 for an 8192 word source computer, or 
from 1 to 255 for a 16,384 or 32,768 word source computer. 


* As shown on page 53, this number can also be zero for sub¬ 
routines, since a subroutine can be without arguments. 
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ARITHMETIC 

STATEMENT 

FUNCTIONS 


LIBRARY 

FUNCTIONS 


These are functions which are defined by a single arithmetic 
statement. The general form of this type of function is: 


GENERAL FORM 

EXAMPLES 

f{dp d 2, • • •) = C 

where / is a function name that obeys 
rule 1 on page 45, each a is a formal 
parameter, and e is an expression not 
involving subscripted variables. 

RATEF (A, B) = A/60*B 
XVALUEFU, K) = J*K/N**2 


The arithmetic statement defining the function must precede any 
statement calling the function and any EQUIVALENCE, COMMON, 
DIMENSION or TABLEDEF statement in the program. 


The arguments which appear after a function name in the state¬ 
ment defining the function are formal parameters, and are re¬ 
placed by the corresponding arguments in the calling statement 
prior to the calculation of the function. For example, according 
to the following statements 


Defining — RATIOF(X,Y)=X/Y 
Statement 


Calling _^ Z=10 * RATIOF (A+B, C**2) 

Statement 


the calling statement, Z, would be evaluated as if it were written 
Z- 10*(A+B)/C**2 


Library functions are functions that are included on the TAC li¬ 
brary tape because of their frequent use. Each installation may 
have its own set of ALTAC library functions. The following are 
some of the standard functions which are supplied with the ALTAC 
Translator. The appearance of the name of the function in an 
expression serves to call the function. 
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Function 

Name 


ABSF 
XABS r 
FCABSF 


COSF 

COS IF 
ACOSF 
ACOS1F 


FCORF 

E CORMJ lEF— 


DIMF 


XDIMF 


EXPF 


FGAMMAF 


-F~LE€F- 


FfcSJF- 


FLOATF 


Number of 
Arguments 





Mode 

of 

Arguments 

Function 

Floating 

Floating 

Fixed 

Fixed 

Floating 

Floating 

Floating 

Floating 

Floating 

Floating 

Floating 

Floating 

Floating 

Floating 


Operation Performed 


Computes | arg | 

Computes | arg | 

Computes | arg |, where 
arg is a complex number 


Computes COS {arg) in 
radians 

Same as COSF 

Computes COS^arg 

Same as ACOSF 


One Fixed 
and Six 
Floating 


—0ne-Eixed- 




Floating 




Fixed 


Floating 


Floating 


Gne~Fixed 

anthTwo 

Floating" 


-One-Fixed— 
and-Two—- 
Floating- 


Floating 

Computes correlation 
coefficient of two 
variables 

Floating 

Computes correlation 

-eeef'fieientgmeansT^md 

var-ianGes-of-twn-vanibles 

Floating 

Produces a positive 
difference: 

DIMF (argj ,arg 2 ) - 

argj -MINF (argarg 2 ) 

Fixed 

Same operation as above, 
using XMINF 

Floating 

Computes the value e ar £ 

Floating 

Computes P (arg) 


Floating 





Floating Converts fixed-point arg 
to floating point 
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Function 

Number of 

Mode of 

Operation Performed 

Name 

Arguments 



Arguments 

Function 

FMDNF 

2-255 

One Fixed; 

Floating 

Computes the median of 



the others 
Floating 


a set of numbers 

•FREFALF- 

—R — 




o 

IHLOcHrlflg -- 

- r-io dtiiig — 

OCJI1 *JJUlLu rLdl ruoi OI—*— 




mm 

/t*)--by-re gular-falsi 

method 7 ~wheTe~ 

arg T -^.—x—^~arg 2 

TT Q iMpy 

c; 




——1 O liviirM:—■-- 

-- 

~ one r ixeu 

r ioating 

tTomputes- j \X) according 



and-Four 


to-Simpsonis-Rnle._where 



Floating" 


jaxg-j^-x-^-arg-2 - 

FTENXF 

l 

Floating 

Floating 

Computes the value 10 ar £ 

F2XF 

1 

Floating 

Floating 

Computes the value 2 ar " 

INTF 

l 

Floating 

Floating 

Computes the integral 

XINTF 

1 

Floating 

Fixed 

part of arg 

FINTLF 

3 

One Fixed; 

Floating 

Interpolates within a set of 



Two Floating 


pointsbyLagrange's formula 

LOGF 

1 

Floating 

Floating 

Computes the value 
log e arg 

LOGIOF 

1 

Floating 

Floating 

Computes the value 
log 1Q arg 

FLOG2XF 

1 

Floating 

Floating 

Computes the value 
log 2 arg 

MAXF 

2-30 

1 

Floating 

Floating 


XMAXF 

2-30 

Fixed 

Fixed 


MAX OF 

2-30 

Fixed 

Floating 

Selects the argument 
with the largest value 

XMAXOF 

2-30 

Fixed 

Fixed 


MAX1F 

2-30 

Floating 

Floating 


XMAX1F 

2-30 

Floating 

Fixed 
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Function 

Number of 

Mode of 

Operation Performed 

Name 

Arguments 

Arguments 

Function 

MINF 

2-30 

Floating 

Floating 


XMINF 

2-30 

Fixed 

Fixed 


MINOF 

2-30 

Fixed 

Floating 

Selects the argument 
with the smallest value 

XMIN0F 

2-30 

Fixed 

Fixed 


MIN1F 

2-30 

Floating 

Floating 


XMIN1F 

2-30 

Floating 

Fixed 


MODF 

2 

Floating 

Floating 

Produces Integral 
Remainders: 

MODF (argj, arg 2 ) = 
argj -INTF (arg 1 jarg 2 )* 
arg 2 

XMODF 

• 2 

Fixed 

Fixed 

Same operation as above, 
using XINTF 

RAND IF 

One dummy 

fixed-point 

argument 


Floating 

Generates positive frac¬ 
tional random numbers 

FNRANDF 

2 

Floating 

Floating 

Generates a single nor¬ 
mally-distributed number. 
argj = Mean, o,rg 2 = cr 

SINF 

1 

Floating 

Floating 

Computes SIN (arg)\n 
radians 

SIN1F 

1 

Floating 

Floating 

Same as SINF 

ASINF 

1 

Floating 

Floating 

Computes SIN“l<zrg- 

ASIN1F 

1 

Floating 

Floating 

Same as ASINF 

SIGNF 

2 

Floating 

Floating 

Transfers sign of arg 2 
to| arg 1 1 

XSIGNF 

2 

Fixed 

Fixed 

Same operation as above 

SQRTF 

1 

Floating 

Floating 

Computes J arg 

SQRT1F 

1 

Floating 

Floating 

Same as SQRTF 
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Function 

Number of 

Mode of 

Operation Performed 

Name 

Arguments 

Arguments 

Function 

FCSQRTF 

2 

Floating 

Floating 

Computes >J arg , where 
aYg is a complex number 

NROOTF 

2 

Floating 

Floating 

Computes ars 2\~drg 1 

TANF 

1 

Floating 

Floating 

Computes TAN (arg) in 
radians 

TAN1F 

1 

Floating 

Floating 

Same as TANF 

ATANF 

1 

Floating 

Floating 

Computes TAN~^ arg 

ATAN1F 

1 

Floating 

Floating 

Same as ATANF 

TANHF 

1 

Floating 

Floating 

Computes TANH (arg) 

XFIXF 

1 

Floating 

Fixed 

Converts floating-point 
arg to fixed point 
(Same as-XINFT) XXtiTF-) 


For additional information on any of the above functions, the re¬ 
spective subroutine descriptions should be consulted. 


FUNCTION These are functions which cannot be defined by a single ALTAC 

SUBPROGRAMS statement, and are not used frequently enough to warrant inclu¬ 

sion on a library tape. A Function Subprogram is a source pro¬ 
gram, the first statement of which is a FUNCTION statement. 


FUNCTION The FUNCTION statement is the first statement of a Function 

Subprogram, and it identifies the function that is being defined. 
The general form of this statement is: 


GENERAL FORM 

EXAMPLES 

FUNCTION f(a v a 2 . . . .) 

where f is a function name that obeys 
rule 2 on page 45, and each a is a for¬ 
mal parameter. 

FUNCTION HMEAN (A, B, C) 
FUNCTION FACTOR (PARI, PAR2) 
FUNCTION INDEX (X, Y, Z) 


RETURN 


The RETURN statement is the last executed statement in a sub¬ 
program, and it returns control to the calling program. It is used 
in both Function and Subroutine Subprograms, and it logically 
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Defining and 
Calling a Function 
Subprogram 


precedes the END or COMPLETE statement which indicates the 
physical end of the subprogram (see page 59). The general form of 
the RETURN statement is: 


GENERAL FORM 

EXAMPLE 

RETURN 

RETURN 


As is the case with Arithmetic Statement Functions and Library 
Functions, a Function Subprogram may be called by any expres¬ 
sion in the main program which contains its name. 


The value of the function that is returned to the calling program 
may be defined by means of an arithmetic statement or by an 
input order statement. For example, if the following subprogram 


LOCATION 

ALTAC STATEMENT 


FUNCTION INDEX (X,Y,Z) $ 

12 

FORMAT (I5)$ 


IF (Z) 1,1,2$ 

1 

INDEX = 3*X+Y**2 $ 


RETURN $ 

2 

READ 12, INDEX $ 


RETURN $ 


END $ 


is called by a program containing the statement, 

IVALUE=INDEX(SUPPLY, DEMAND, CREDIT) $ 
the value of the function INDEX would be defined by the statement 
INDEX=3*SUPPLY+DEMAND**2 $ 
or by the statement 

READ 12, INDEX $ 


depending on whether the value of CREDIT is not or is greater 
than zero, respectively. 
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SUBROUTINE 

SUBPROGRAMS 


SUBROUTINE 


When a formal parameter in a FUNCTION statement is an array 
name, the corresponding argument in the calling statement must 
also be an array name. Each such array name must be defined 
in a DIMENSION or TABLEDEF statement in its respective 
source program, and all but the last dimension must correspond. 


A subroutine subprogram is a source program, the first state¬ 
ment of which is a SUBROUTINE statement. Subroutine sub¬ 
programs differ from functions in two basic ways: 

• Unlike a function which may be called by any expression 
containing its name, a subroutine subprogram can only be 
called by a CALL statement (see page 54). 

• A function produces only a single result; a subroutine sub¬ 
program can produce more than one result.* Each result 
corresponds to a formal parameter of the subroutine. 


The SUBROUTINE statement is the first statement of a subroutine 
subprogram, and it identifies the subroutine that is being called. 
The general form of this statement is: 


GENERAL FORM 

EXAMPLES 

SUBROUTINE f(a v a 2 , . . .) 

where f is the name of a subroutine 
subprogram (see page 46), and each 
a is a formal parameter. 

The formal parameters, and the pa¬ 
rentheses enclosing them, may be 
omitted from the SUBROUTINE 

statement. 

SUBROUTINE CALC (A, B, 

ANSI, ANS2) 

SUBROUTINE RATE (PARI, 
PAR2, RESULT) 

SUBROUTINE TREND (A, 

B, C, D, E) 

SUBROUTINE INPUT 


When a formal parameter in a SUBROUTINE statement is an 
array name, the corresponding argument in the CALL statement 
(see below) must also be an array name. Each such array name 
must be defined in a DIMENSION or TABLEDEF statement 
in its respective program, and all but the last dimension must 
correspond. 

An example of the use of the SUBROUTINE statement is pre¬ 
sented on page 55. 


* A subroutine can also be made to perform an operation and not 
produce a result. In this case the arguments following the sub¬ 
routine name are omitted. 
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CALL 


Hollerith 

Arguments 


The CALL statement is used to call the Subroutine Subprogram 
whose name appears in the statement. The general form of the 
CALL statement is: 


GENERAL FORM 

EXAMPLES 

CALL f(a v a 2 , ...) 

where f is the name of a subroutine 
subprogram (see page 46) and each 
a is an argument of one of the forms 
indicated below. 

The arguments may be omitted when 
corresponding to a SUBROU¬ 
TINE statement with no formal 
parameters. 

CALL CALC(X, Y, SOL, SIG) 

CALL RATE (RISK, CAPITAL, GAIN) 

CALL TREND (TEMP, PRESS, WIND, 
PRECIP, FORCAST) 

CALL FACTOR (WEIGHT, FUEL, 
THRUST) 

CALL INPUT 


An argument appearing in a CALL statement may be in any of 
the following forms: 

• Fixed-or floating-point expressions 

• Names of arrays 

• Hollerith fields 

The use of a Hollerith field as an argument of a subprogram is 

presented below. The other types of arguments listed above were 
discussed on page 46. 

The arguments in the CALL statement must be presented in the 
same order, number, form, and mode as the corresponding for¬ 
mal parameters in the SUBROUTINE statement. 


Hollerith arguments may be used by a program to define a Hol¬ 
lerith field internally (i.e., without the use of an input statement). 

The Hollerith argument in the calling statement must be of the 
following general form: 


nH . 

where n is any unsigned decimal integer greater than zero. The n 
alphanumeric characters following the H will be translated by 

ALTAC into TAC word constants (W/.), eight characters 

per word. If n is not a multiple of eight, the unused right-most 
part of the last word will be filled with spaces. A word of 48 one 
bits will follow the last word. 
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A word containing the starting location of the Hollerith informa¬ 
tion is the argument transmitted to the subprogram. The cor¬ 
responding formal parameter should be the name of an array that 
appears in a DIMENSION statement in the subprogram. 

The following example illustrates the use of the CALL, and 
SUBROUTINE statements: 

Assume A and B are two single-dimensioned arrays of 100 ele¬ 
ments each. Define a third array C, such that for n- 1,2,..., 100 

C n =0 If A n =0 or B n =0 or both 


otherwise 

^n = |-^n - Bn| 


The necessary coding could be of the form: 


LOCATION 

ALTAC STATEMENT 

12 

• 

DIMENSION A(100),B(100),C(100)$ 

• 

• 

• 

CALL CALC (A,B,C)$ 

• 

• 


and the subroutine could have been written as: 


LOCATION 

ALTAC STATEMENT 

3 

SUBROUTINE CALC (S,T,U) $ 

DIMENSION S(100),T(100),U(100) $ 

DO 5 1=1,100 $ 

U(I)=0. $ 

1F(S(I))3,5,3 $ 

IF(T(I))4,5,4 $ 

4 

U(I)=ABSF(S(I)-T(I)) $ 

5 

CONTINUE $ 

6 

RETURN $ 


END $ 
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Statement 12 in the main program transfers control to the sub¬ 
routine CALC. After array C is formed, statement 6 of the sub¬ 
routine returns control to the main program at the first state¬ 
ment following statement 12. Note that formal parameters S,T, 
and U in the subprogram are dimensioned, and are of the same 
mode, order, and number, as arguments A,B, and C in the main 
program. 



Chapter VIII 

ADDITIONAL FEATURES OF THE ALTAC SYSTEM 


TAC CODING 
WITHIN AN 
ALTAC PROGRAM 


IDENTIFY 


This chapter discusses TAC coding within an ALTAC program, 
the IDENTIFY statement, the I Card, Remarks Cards, and the 
COMPLETE and END statements. 


TAC coding in the standard TAC format may be included in an 
ALTAC program in either of two ways: 

1. By writing the ALTAC statement 

STARTTAC $ 

immediately before the TAC coding, and the statement 

ENDTAC $ 

in columns 17-22, immediately after the TAC coding. 

All TAC coding between these statements is unprocessed by 
ALTAC and are passed on as part of the TAC program that 
results from the ALTAC Translation. 

2. By writing a T in column 9 (column 1 when in FORTRAN 
format) of every TAC instruction inserted. ALTAC replaces 
the T in the label field with a space character, and then inter¬ 
prets columns 9-80 literally. 

An instruction with a T in the label field must never appear 
between the statements STARTTAC and ENDTAC, otherwise 
a label field error will be indicated by the TAC Assembler. 


If the first executable statement of an ALTAC source program 
is a TAC instruction, this instruction, and the STARTTAC state¬ 
ment preceding it (if any), must be preceded by a CONTINUE 
statement. 


The IDENTIFY statement is used to: 


Identify the format of the source program 
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• Indicate to the ALTAC Translator the size (amount of core 
storage) of the computer on which the object program will 
be run. 

* Specify the least amount of COMMON storage that must be 
reserved.* 


The general form of the IDENTIFY statement is: 


GENERAL FORM 

EXAMPLES 

IDENTIFY Type, mK, n\V 

where Type, mK , and n\V are optional 
parameters, which are explained as 
fol lows. 

IDENTIFY A, 32K, 1200W 

IDENTIFY F, 16K, 800W 


PARAMETER 

EXPLANATION 

Type 

“Type” may be A or F, indicating that the,source 
program is in ALTAC format or in FORtXn fqr- 
mat.1? If statements in ALTAC format and FORTAN 
format are mixed within a program, an IDENTIFY 
statement with the appropriate type parameter 
must precede each change in format. 


If the type parameter is omitted from the IDEN¬ 
TIFY statement, ALTAC assumes that the program 
is in ALTAC format. 

mK 

This parameter defines the memory size of the 
Philco 2000 computer on which the objectprogram 
will be run. m may be 8, 16, or 32, denoting 8,192, 
16,384 or 32,768 words of memory respectively. 
If the same size memory is to be used in both the 
compilation and run phase, this parameter may be 
omitted. 


A program that is compiled for a Philco 2000 with 
a larger memory may run on a Philco 2000 with a 
smaller memory; however, a program that is 
compiled for a Philco 2000 with a smaller mem¬ 
ory may not run on one with a larger memory. 

nW 

This parameter specifies the least number of 
words of COMMON storage which must be con¬ 
tained in the program to be compiled. * 


* This need only be specified when deviating from the standard 
mode (relocatable) of compilation (seethe Philco2000Operating 
System Manual, TM-23). In this case, the first source program 
must make provision for the largest amount of common storage 
required for the entire program. 
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I CARD 


REMARKS 


COMPLETE 

END 


The I Card is the first physical card of a program, and it identi¬ 
fies the program. The general form of this card is: 


L 

LOCATION 

ALTAC STATEMENT 

I 


SAMPLEAPROGRAM A A 

• 

• 


An I is written in the label column (column 9) while a name (e.g., 
SAMPLE APROGRAM AA) identifying the program is written in 
columns 17-32. The name is comprised of all 16 characters 
(spaces included) in these columns, and is not terminated with a 
dollar sign. 


CARD An in the label field of a card indicates that all information 

on that card is to be interpreted as remarks, and does not affect 
the compilation. A Remarks Card must not appear between cards 
of another statement. 


OR Either the COMPLETE or the END statement is used to signal to 

the ALTAC Translator the end of the program being compiled. 
The COMPLETE or END statement must be the last physical 
statement in the source program. The general forms of these 
statements are: 


GENERAL FORMS 

EXAMPLES 

COMPLETE 

COMPLETE 

END 

END 






Appendix A 

TABLE OF PHILCO CHARACTERS 


PHILCO 

OCTAL 

HOLLERITH 

CHARACTER 

CODE 

PUNCH 

» 

40 

11 or 8-4 (D 

J 

41 

11-1 

K 

42 

11-2 

L 

43 

11-3 

M 

44 

11-4 

N 

45 

11-5 

O 

46 

11-6 

P 

47 

11-7 

Q 

50 

11-8 

R 

51 

11-9 

— 1 

52 

11-8-2 (1) 

$ 

53 

11-8-3 

* 

54 

11-8-4 

< 

55 

11-8-5 (T) 

# 

56 

11-8-6 <j) 

LJ 

57 

11-8-7 ® 

Blank (space) 

60 

Blank 

/ 

61 

0-1 

S 

62 

0-2 

T 

63 

0-3 

U 

64 

0-4 

V 

65 

0-5 

W 

66 

0-6 

X 

67 

0-7 

Y 

70 

0-8 

Z 

71 

0-9 

1 

72 

0-8-2 (I) 

3 

73 

0-8-3 

( 

74 

0-8-4 

> 

75 

0-8-5 (T) 

; 

76 

0-8-6 <X> 

e (2) 

77 

0-8-7 (T) 


PHILCO 

OCTAL 

HOLLERITH 

CHARACTER 

CODE 

PUNCH 

0 

I 

0 

1 

?§&■ 

1 

2 


2 

3 

03 

3 

4 

04 

4 

5 

05 

5 

6 

06 

6 

7 

07 

7 

8 

10 

8 

9 

11 

9 

@ 

12 

8-2 ® 

= 

13 

8-3 

> 

14 

8-4 

= 

15 

8-5 (T) 

& 

16 

8-6 ® 

1 

17 

8-7 

+ 

20 

12 

A 

21 

12-1 

B 

22 

12-2 

C 

23 

12-3 

D 

24 

12-4 

E 

25 

12-5 

F 

26 

12-6 

G 

27 

12-7 

H 

30 

12-8 

I 

31 

12-9 

n (D 

32 

12-8-2 (T) 

• 

33 

12-8-3 

) 

34 

12-8-4 

% 

35 

12-8-5 ® 

? 

36 

12-8-6 (D 

tr 

37 

12-8-7 (D 


(1) Multiple punched. 

(2) These two characters are not acceptable ALTAC characters, and are included here 
only to show the complete character codes. 























Appendix B 

SUMMARY LIST OF ALTAC STATEMENTS 


This appendix provides a convenient reference to all ALTAC statements 
discussed in the manual. 


STATEMENT 

TYPE 

PAGE 

REFERENCE 

v = e 

Arithmetic 

13 

GO TO n 

Control 

15 

GO TO m or GO TO m, (nj, n 2 , . . ., n^) 

Control 

15 

ASSIGN n to m or ASSIGN (n) to m 

Control 

16 

GO TO fWj j • • • 9 , z 

Control 

16 

IF (e) ni, n 2 , n 3 or IF (ej ): (e 2 ), S 

Control 

17 

SENSE LIGHT i 

Control 

18 

IF (SENSE LIGHT i) n p n 2 

Control 

19 

IF (SENSE SWITCH i) n v n 2 

Control 

19 

IF (SENSE BIT i) n p n 2 

Control 

19 

IF OVERFLOW n v n £ 

Control 

20 

DO n i - mj, m 2 , m 3 or DO (n) i = , m 2 , m 2 

Control 

20 

CONTINUE 

Control 

23 

PAUSE n 

Control 

23 

STOP 

Control 

23 

EQUIVALENCE (Vj, v 2 , v 3 ,. . .), (v £, v k+1 , 

Specification 

26 

COMMON Vj, v 2 , v 3 , ... 

Specification 

27 

DIMENSION vj, v 9 , v 3 , ... 

Specification 

25 

TABLEDEF vj, v 2 , v 3 , ... 

Specification 

28 

READ n, List 

Input 

32 

READ TAPE i, List 

Input 

33 

READ INPUT TAPE i, n, List 

Input 

32 

PRINT n, List 

Output 

33 

PUNCH n, List 

Output 

34 
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INDEX 


Alphanumeric characters, 8,41,61 
Alphanumeric field descriptors, 40 
ALTAC 

characters, 5 
features of, x 
format, 1-3 
language, ix 
translator, ix 
Arguments 

of a function, 46-51 
of a subroutine, 46, 53 
Arithmetic statements, 13 
Arithmetic statement functions, 47 
Arrays, x , 7, 9,25-28, 31,46,53-56 
ASSIGN statement, 16 
Assigned GO TO statement, 15 

BACKSPACE statement, 36 
Binary tapes, 31, 33, 35, 36 
Binding strength, 10 
Blank field descriptor, 41 
Blanks, 3-5, 40-42, 59,61 

CALL statement, 46, 53-55 
Characters 

alphanumeric, 8, 41, 61 
ALTAC, 5 

blank, 3-5,40-42, 59,61 
Coding form, 2 

COMMON statement, 25-28, 47 
Compilation, ix 
COMPLETE statement, 59 
Compound IF statements, 18 
Compound statements, 14 
Computed GO TO statement, 16 
Constants 

fixed-point, 7 
floating-point, 8 
CONTINUE statement, 23, 57 

Data card, 40 

Data transmission and conversion, 29, 
30, 40 

DIMENSION statement, 9, 25-27, 31, 47, 
53,55 


DO statement 

exit and return, 21, 22 
increment, 20, 21 
index, 20, 21 

initial value parameter, 20, 21 
limiting value parameter, 20, 21 
multiple DO loops, 21, 22 
nesting of DO's, 21, 22 
range of, 21 
use of, 20 

use of index and restrictions, 21, 22 
Dummy variables (see Formal parameters) 

E descriptor, 38, 39 
Element of an array, 25-27 
END statement, 59 
ENDFILE statement, 35,36 
End of record indicators, 43 
ENDTAC statement, 57 
EQUIVALENCE statement, 25-28,47 
Exponent modifier (see Scale factor) 
Exponentiation, 10 
Exponent fault, 20 
Expressions 
mixed, 11 

processing of, 10,11 
rules for writing, 10,11 

F descriptor, 38, 39 
Field descriptors, 38 
A, 40,41 

E, 38,39 

F, 38,39 

H, 41 

I, 38,39 
O, 38,39 
X, 41 

Fixed-point 

arithmetic, 13,14 
constants, 7 
range, 7 
variables, 8,9 
Floating-point 
arithmetic, 14 
constants, 8 
range, 8 
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variables, 8, 9 

Formal parameters, 46,47,51, 53,56 
FORMAT statement, 29, 37 
field descriptors, 37-41 
scale factors, 42 

FORMAT statement references, 30 

FORTRAN format, 4 

Functions 

arguments of, 46 
names of, 45,46 
types of, 45 

FUNCTION statement, 51, 53 
Function subprograms, 51-53 

GO TO statements 
unconditional, 15 
assigned, 15 
computed, 16 

H descriptor, 41 
Hollerith 

arguments, 54 
characters, 3,5,41,61 
fields, 41,54 

I card, 59 
I descriptor, 38, 39 
IDENTIFY statement, 57-58 
IF statements 
IF, 17 

IF OVERFLOW, 20 
IF SENSE BIT, 19 
IF SENSE LIGHT, 19 
IF SENSE SWITCH, 19 
Index of a DO, 20, 21 
Indexing of lists, 30,31 
Input-Output statements 

FORMAT statement, 29, 37 
descriptors, 37-41 
scale factors, 42 
ORDER statements, 29-37 

for the transfer of binary coded 
information, 29 
for the transfer of binary 
information, 29 
for the manipulation of mag¬ 
netic tapes, 29 

Language of ALTAC 
elements of, 7-11 

statements, 13, 15, 25, 29, 51, 53, 54, 57 
Library functions, 47-51 
Line spacing, 42 


List 

definition of, 29, 30 
indexing of, 30,31 
representing arrays, 29,30, 31 
rules of forming, 30 
LOCKOUT statement, 37 

Magnetic tape references, 30 
Mixed expressions, 11 
Multiple records, 42, 43 

Names of variables, 8 
Nest of DO's, 21, 22 
Non-executable statements, 25 
Numerical field descriptors, 38 

O descriptor, 38, 39 
Object program, ix 
Operation symbols, 10 
Order of operations, 10,11 
ORDER statements, 29-37 
Overflow 

IF OVERFLOW, 20 
Parentheses 

use of, 9, 11, 16, 30, 41, 43, 46 
PAUSE statement, 23 
PRINT statement, 33 
Program identification (see I card) 
Program run, ix 
PUNCH statement, 34 
Plus sign, 5,42,61 
Printer control characters, 42 

Raising to a power, 10 
Range of a DO, 21 
READ statement, 32 
READ INPUT TAPE statement, 32 
READ TAPE statement, 33 
Record, 31,33,35,36,42,43 
Remarks, 3, 4, 59 
RETURN statement, 51 
REWIND statement, 37 
RUNOUT statement, 36 

Scale factor, 42 
Scanning, 10 
Sense bit 

IF SENSE BIT, 19 
SENSE LIGHT statement, 18 
Sense switch 

IF SENSE SWITCH, 19 
Skipping characters, 41 
Skipping records, 43 



INDEX 
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Source program, ix 
Spaces (see Blanks) 

Specification statements 
COMMON, 25-28, 47, 58 
DIMENSION, 9,25-27,31, 47,53, 55 
EQUIVALENCE, 25-28,47 
TABLEDEF, 9, 25-28, 47,53 
Statement numbers, 3, 4 
STARTTAC statement, 23, 57 
STOP statement, 23 
Subprograms 

Function, 45,51 
Subroutine, 45, 53 
SUBROUTINE statement, 53 
Subscripts 

rules for forming, 9 
subscripting of, 9, 26 
Subscripted variables, 9, 26 
Symbolic addresses, 3 


TABLEDEF statement, 9,25-28,47,53 
TAC coding within an ALTAC 
program, 1, 23, 28, 57 
Translator, ix 
Truncation, --l-?,^ / / ? / 3 

Unconditional GO TO, 15 

Variables 

dummy (see Formal parameters) 
fixed-point, 8, 9 
floating-point, 8, 9 
subscripted, 9 

WRITE OUTPUT TAPE statement, 35 
WRITE TAPE statement, 35 

X descriptor, 41 

Zero, 7, 8, 9,42 



